﻿Public Class Inf_RendimientoInstituciones
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack Then
            FG.culturaPaginas()

        End If
    End Sub
    Private Sub MuestraResultado()


        Dim Rs As ADODB.Recordset
        Dim param(0) As ADODB.Parameter

        'seteo la grillña  
        Gv_datos.DataBind()


        param(0) = New ADODB.Parameter
        param(0).Name = "@Anio"
        param(0).Type = ADODB.DataTypeEnum.adVarChar
        param(0).Direction = ADODB.ParameterDirectionEnum.adParamInput
        param(0).Value = cboAnioGraf.Text
        param(0).Size = 4


        Rs = Datos.TraerTodos("Informe_rendimientoInstituciones", param, "TraeDatosDEsexoMAsculino-Inf_poblacion")

        If Rs.RecordCount = 0 Then
            FG.MuestraCartel("No hay datos para mostrar", lblMsje_Busqueda)
            Exit Sub
        End If



        Gv_datos.DataSource = FG.cargaUnDataTable(Rs)
        Gv_datos.DataBind()



        'muestro el titulo
        LblTitulo.Visible = True



    End Sub


    Protected Sub btnAnioGraf_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnAnioGraf.Click
        LblTitulo.Visible = False
        lblMsje_Busqueda.Visible = False


        MuestraResultado()



    End Sub
End Class